< Prev(J) / Next(K) > / View ：

Filename: /text/sbasic/shared/03120315.xhp

(section: join) (bookmark: bm_id3149416)
Join function
Join 関数

Join Function [Runtime]
Join 関数 [実行時](hd_id3149416.1)

Returns a string from a number of substrings in a string array.
文字列配列として与えられるサブストリングを、1 つの文字列に変換して返します。(par_id3149670.2)

(/section: join)

Syntax:
構文:(hd_id3159414.3)

Join (Text As String Array, delimiter)
Join (Text As String Array, delimiter)(par_id3156344.4)

Return value:
戻り値:(hd_id3150400.5)

String
文字列(par_id3150359.6)

Parameters:
パラメータ:(hd_id3148798.7)

Text: A string array.
Text: 処理する文字列配列。(par_id3145171.8)

delimiter (optional): A string character that is used to separate the substrings in the resulting string. The default delimiter is the space character. If delimiter is a string of length zero "", the substrings are joined without separator.
delimiter (省略可能): 戻り値として返す文字列中の区切り記号とする文字を指定します。デフォルト設定ではスペース記号が、区切り記号として使用されます。区切り記号として長さゼロの空白文字列を指定すると、サブストリングは区切り記号無しで連結されます。(par_id3154908.9)

Example:
例:(hd_id3154218.10)

(embed text/sbasic/shared/03120314.xhp#splitjoinex : linkinfo)

Dim a(3)
Dim a(3)(par_id3151212.11)

Sub main()
Sub main()(par_id3149204.13)

a(0) = "ABCDE"
a(0) = "ABCDE"(par_id3156214.14)

a(1) = 42
a(1) = 42(par_id3154217.15)

a(2) = "MN"
a(2) = "MN"(par_id3145173.16)

a(3) = "X Y Z"
a(3) = "X Y Z"(par_id3153104.17)

JStr = Join1()
JStr = Join1()(par_id3154684.18)

Call Show(JStr, Split1(JStr))
Call Show(JStr, Split1(JStr))(par_id3153367.19)

JStr = Join2()
JStr = Join2()(par_id3145271.20)

Call Show(JStr, Split1(JStr))
Call Show(JStr, Split1(JStr))(par_id3155856.21)

JStr = Join3()
JStr = Join3()(par_id3159155.22)

Call Show(JStr, Split1(JStr))
Call Show(JStr, Split1(JStr))(par_id3155413.23)

End Sub
End Sub(par_id3153190.24)

Function Join1()
Function Join1()(par_id3154320.25)

Join1 = Join(a(), "abc")
Join1 = Join(a(), "abc")(par_id3145748.26)

End Function
End Function(par_id3153142.45)

Function Join2()
Function Join2()(par_id3152462.27)

Join2 = Join(a(), ",")
Join2 = Join(a(), ",")(par_id3146119.28)

End Function
End Function(par_id3154790.29)

Function Join3()
Function Join3()(par_id3147125.30)

Join3 = Join(a())
Join3 = Join(a())(par_id3149377.31)

End Function
End Function(par_id3150114.32)

Function Split1(aStr)
Function Split1(aStr)(par_id3154729.33)

Split1 = Split(aStr, "D")
Split1 = Split(aStr, "D")(par_id3145646.34)

End Function
End Function(par_id3154512.35)

Sub Show(JoinStr, TheArray)
Sub Show(JoinStr, TheArray)(par_id3149400.36)

l = LBound(TheArray)
l = LBound(TheArray)(par_id3153948.37)

u = UBound(TheArray)
u = UBound(TheArray)(par_id3146969.38)

total$ = "=============================" + Chr$(13) + JoinStr + Chr$(13) + Chr$(13)
total$ = "=============================" + Chr$(13) + JoinStr + Chr$(13) + Chr$(13)(par_id3150752.39)

For i = l To u
For i = l To u(par_id3148916.40)

total$ = total$ + TheArray(i) + Str(Len(TheArray(i))) + Chr$(13)
total$ = total$ + TheArray(i) + Str(Len(TheArray(i))) + Chr$(13)(par_id3154754.41)

Next i
Next i(par_id3156054.42)

MsgBox total$
MsgBox total$(par_id3147338.43)

End Sub
End Sub(par_id3155960.44)

(/embed text/sbasic/shared/03120314.xhp#splitjoinex)

< Prev / Next >